MIDISendMessage
(Method)
Purpose: Sends messages to the MIDI-Out Port.
Syntax: CtlName.MIDISendMessage Message As Integer, Data1 As Integer, Data2 As Integer
Arguments:
Message is an Integer holding the MIDI-message to send.
Data1 is an Integer holding data to send.
Data2 is an Integer holding data to send.
Example:
Private Sub
Command1_Click()
____'Send a
Note On on Channel 2 at full volume
____SoundCard1.MIDIOutputOpen
____SoundCard1.MIDISendMessage
&H90 + 1, 60, 127
End Sub
Comments: MIDIOutput must be opened before sending messages.The MIDISendNoteOn and MIDISendNoteOff are more intuitive, but you might need this anyway.
See Also:
MIDISendSysEx